home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / AIncludes / TextEdit.a < prev    next >
Encoding:
Text File  |  1996-01-24  |  21.6 KB  |  861 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        TextEdit.a
  3. ;
  4. ;    Contains:    TextEdit Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.2 in “MPW” on ETO #20
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__TEXTEDIT__') = 'UNDEFINED' THEN
  21. __TEXTEDIT__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  30.     include 'Quickdraw.a'
  31.     ENDIF
  32. ;        include 'MixedMode.a'                                        ;
  33. ;        include 'QuickdrawText.a'                                    ;
  34.  
  35.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  36.     include 'MixedMode.a'
  37.     ENDIF
  38. ; typedef struct TERec         TERec, *TEPtr, **TEHandle
  39. ; 
  40. ;    Important note about TEClickLoopProcPtr and WordBreakProcPtr
  41. ;
  42. ;    At one point these were defined as returning the function result in the 
  43. ;    condition code Z-bit.  This was correct, in that it was what the 68K
  44. ;    implementation of TextEdit actually tested.  But, MixedMode had a different 
  45. ;    idea of what returning a boolean in the Z-bit meant.  MixedMode was setting
  46. ;    the Z-bit the complement of what was wanted.  
  47. ;    
  48. ;    Therefore, these ProcPtrs have been changed (back) to return the result in
  49. ;    register D0.  It turns out that for register based routines, 
  50. ;    MixedMode sets the Z-bit of the 68K emulator based on the contents 
  51. ;    of the return result register.  Thus we can get the Z-bit set correctly.  
  52. ;    
  53. ;    But, when TextEdit is recoded in PowerPC, if it calls a 68K ClickLoop
  54. ;    or WordBreak routine, register D0 had better have the result (in addition
  55. ;    to the Z-bit). Therefore all 68K apps should make sure their ClickLoop or
  56. ;    WordBreak routines set register D0 at the end.
  57. ;
  58. ;
  59. ;    The following ProcPtrs cannot be written in or called from a high-level 
  60. ;    language without the help of mixed mode or assembly glue because they 
  61. ;    use the following parameter-passing conventions:
  62. ;
  63. ;    typedef pascal void (*HighHookProcPtr)(const Rect *r, TEPtr pTE);
  64. ;    typedef pascal void (*CaretHookProcPtr)(const Rect *r, TEPtr pTE);
  65. ;
  66. ;        In:
  67. ;            =>     r                        on stack
  68. ;            =>    pTE                        A3.L
  69. ;        Out:
  70. ;            none
  71. ;
  72. ;    typedef pascal Boolean (*EOLHookProcPtr)(char theChar, TEPtr pTE, TEHandle hTE);
  73. ;
  74. ;        In:
  75. ;            =>     theChar                    D0.B
  76. ;            =>    pTE                        A3.L
  77. ;            =>    hTE                        A4.L
  78. ;        Out:
  79. ;            <=    Boolean                    Z bit of the CCR
  80. ;
  81. ;    typedef pascal unsigned short (*WidthHookProcPtr)(unsigned short textLen,
  82. ;     unsigned short textOffset, void *textBufferPtr, TEPtr pTE, TEHandle hTE);
  83. ;    typedef pascal unsigned short (*TextWidthHookProcPtr)(unsigned short textLen,
  84. ;     unsigned short textOffset, void *textBufferPtr, TEPtr pTE, TEHandle hTE);
  85. ;
  86. ;        In:
  87. ;            =>     textLen                    D0.W
  88. ;            =>    textOffset                D1.W
  89. ;            =>    textBufferPtr            A0.L
  90. ;            =>    pTE                        A3.L
  91. ;            =>    hTE                        A4.L
  92. ;        Out:
  93. ;            <=    unsigned short            D1.W
  94. ;
  95. ;    typedef pascal unsigned short (*NWidthHookProcPtr)(unsigned short styleRunLen,
  96. ;     unsigned short styleRunOffset, short slop, short direction, void *textBufferPtr, 
  97. ;     short *lineStart, TEPtr pTE, TEHandle hTE);
  98. ;
  99. ;        In:
  100. ;            =>     styleRunLen                D0.W
  101. ;            =>    styleRunOffset            D1.W
  102. ;            =>    slop                    D2.W (low)
  103. ;            =>    direction                D2.W (high)
  104. ;            =>    textBufferPtr            A0.L
  105. ;            =>    lineStart                A2.L
  106. ;            =>    pTE                        A3.L
  107. ;            =>    hTE                        A4.L
  108. ;        Out:
  109. ;            <=    unsigned short            D1.W
  110. ;
  111. ;    typedef pascal void (*DrawHookProcPtr)(unsigned short textOffset, unsigned short drawLen,
  112. ;     void *textBufferPtr, TEPtr pTE, TEHandle hTE);
  113. ;
  114. ;        In:
  115. ;            =>     textOffset                D0.W
  116. ;            =>    drawLen                    D1.W
  117. ;            =>    textBufferPtr            A0.L
  118. ;            =>    pTE                        A3.L
  119. ;            =>    hTE                        A4.L
  120. ;        Out:
  121. ;            none
  122. ;
  123. ;    typedef pascal Boolean (*HitTestHookProcPtr)(unsigned short styleRunLen,
  124. ;     unsigned short styleRunOffset, unsigned short slop, void *textBufferPtr,
  125. ;     TEPtr pTE, TEHandle hTE, unsigned short *pixelWidth, unsigned short *charOffset, 
  126. ;     Boolean *pixelInChar);
  127. ;
  128. ;        In:
  129. ;            =>     styleRunLen                D0.W
  130. ;            =>    styleRunOffset            D1.W
  131. ;            =>    slop                    D2.W
  132. ;            =>    textBufferPtr            A0.L
  133. ;            =>    pTE                        A3.L
  134. ;            =>    hTE                        A4.L
  135. ;        Out:
  136. ;            <=    pixelWidth                D0.W (low)
  137. ;            <=    Boolean                    D0.W (high)
  138. ;            <=    charOffset                D1.W
  139. ;            <=    pixelInChar                D2.W
  140. ;
  141. ;    typedef pascal void (*TEFindWordProcPtr)(unsigned short currentPos, short caller, 
  142. ;     TEPtr pTE, TEHandle hTE, unsigned short *wordStart, unsigned short *wordEnd);
  143. ;
  144. ;        In:
  145. ;            =>     currentPos                D0.W
  146. ;            =>    caller                    D2.W
  147. ;            =>    pTE                        A3.L
  148. ;            =>    hTE                        A4.L
  149. ;        Out:
  150. ;            <=    wordStart                D0.W
  151. ;            <=    wordEnd                    D1.W
  152. ;
  153. ;    typedef pascal void (*TERecalcProcPtr)(TEPtr pTE, unsigned short changeLength,
  154. ;       unsigned short *lineStart, unsigned short *firstChar, unsigned short *lastChar);
  155. ;
  156. ;        In:
  157. ;            =>     pTE                        A3.L
  158. ;            =>    changeLength            D7.W
  159. ;        Out:
  160. ;            <=    lineStart                D2.W
  161. ;            <=    firstChar                D3.W
  162. ;            <=    lastChar                D4.W
  163. ;
  164. ;    typedef pascal void (*TEDoTextProcPtr)(TEPtr pTE, unsigned short firstChar, unsigned short lastChar,
  165. ;                         short selector, GrafPtr *currentGrafPort, short *charPosition);
  166. ;
  167. ;        In:
  168. ;            =>     pTE                        A3.L
  169. ;            =>    firstChar                D3.W
  170. ;            =>    lastChar                D4.W
  171. ;            =>    selector                D7.W
  172. ;        Out:
  173. ;            <=    currentGrafPort            A0.L
  174. ;            <=    charPosition            D0.W
  175. ;            
  176. ;
  177. TERec                     RECORD    0
  178. destRect                 ds     Rect    ; offset: $0 (0)
  179. viewRect                 ds     Rect    ; offset: $8 (8)
  180. selRect                     ds     Rect    ; offset: $10 (16)
  181. lineHeight                 ds.w   1        ; offset: $18 (24)
  182. fontAscent                 ds.w   1        ; offset: $1A (26)
  183. selPoint                 ds     Point    ; offset: $1C (28)
  184. selStart                 ds.w   1        ; offset: $20 (32)
  185. selEnd                     ds.w   1        ; offset: $22 (34)
  186. active                     ds.w   1        ; offset: $24 (36)
  187. wordBreak                 ds.l   1        ; offset: $26 (38)
  188. clickLoop                 ds.l   1        ; offset: $2A (42)
  189. clickTime                 ds.l   1        ; offset: $2E (46)
  190. clickLoc                 ds.w   1        ; offset: $32 (50)
  191. caretTime                 ds.l   1        ; offset: $34 (52)
  192. caretState                 ds.w   1        ; offset: $38 (56)
  193. just                     ds.w   1        ; offset: $3A (58)
  194. teLength                 ds.w   1        ; offset: $3C (60)
  195. hText                     ds.l   1        ; offset: $3E (62)
  196. hDispatchRec             ds.l   1        ; offset: $42 (66)        ; added to replace recalBack & recalLines.  it's a handle anyway 
  197. clikStuff                 ds.w   1        ; offset: $46 (70)
  198. crOnly                     ds.w   1        ; offset: $48 (72)
  199. txFont                     ds.w   1        ; offset: $4A (74)
  200. txFace                     ds.b   1        ; offset: $4C (76)        ;txFace is unpacked byte
  201. filler                     ds.b   1        ; offset: $4D (77)
  202. txMode                     ds.w   1        ; offset: $4E (78)
  203. txSize                     ds.w   1        ; offset: $50 (80)
  204. inPort                     ds.l   1        ; offset: $52 (82)
  205. highHook                 ds.l   1        ; offset: $56 (86)
  206. caretHook                 ds.l   1        ; offset: $5A (90)
  207. nLines                     ds.w   1        ; offset: $5E (94)
  208. lineStarts                 ds.w   16001    ; offset: $60 (96)
  209. sizeof                     EQU *            ; size:   $7D62 (32098)
  210.                         ENDR
  211.  
  212.  
  213. ; Justification (word alignment) styles 
  214. teJustLeft                        EQU        0
  215. teJustCenter                    EQU        1
  216. teJustRight                        EQU        -1
  217. teForceLeft                        EQU        -2
  218. ; new names for the Justification (word alignment) styles 
  219. teFlushDefault                    EQU        0                    ;flush according to the line direction 
  220. teCenter                        EQU        1                    ;center justify (word alignment) 
  221. teFlushRight                    EQU        -1                    ;flush right for all scripts 
  222. teFlushLeft                        EQU        -2                    ;flush left for all scripts 
  223. ; Set/Replace style modes 
  224. fontBit                            EQU        0                    ;set font
  225. faceBit                            EQU        1                    ;set face
  226. sizeBit                            EQU        2                    ;set size
  227. clrBit                            EQU        3                    ;set color
  228. addSizeBit                        EQU        4                    ;add size mode
  229. toggleBit                        EQU        5                    ;set faces in toggle mode
  230. toglBit                            EQU        5                    ; obsolete.  use toggleBit 
  231. ; TESetStyle/TEContinuousStyle modes 
  232. doFont                            EQU        1                    ; set font (family) number
  233. doFace                            EQU        2                    ;set character style
  234. doSize                            EQU        4                    ;set type size
  235. doColor                            EQU        8                    ;set color
  236. doAll                            EQU        15                    ;set all attributes
  237. addSize                            EQU        16                    ;adjust type size
  238.  
  239. doToggle                        EQU        32                    ;toggle mode for TESetStyle
  240. ; offsets into TEDispatchRec 
  241. EOLHook                            EQU        0                    ;[UniversalProcPtr] TEEOLHook
  242. DRAWHook                        EQU        4                    ;[UniversalProcPtr] TEWidthHook
  243. WIDTHHook                        EQU        8                    ;[UniversalProcPtr] TEDrawHook
  244. HITTESTHook                        EQU        12                    ;[UniversalProcPtr] TEHitTestHook
  245. nWIDTHHook                        EQU        24                    ;[UniversalProcPtr] nTEWidthHook
  246. TextWidthHook                    EQU        28                    ;[UniversalProcPtr] TETextWidthHook
  247. ; selectors for TECustomHook 
  248. intEOLHook                        EQU        0                    ;TEIntHook value
  249. intDrawHook                        EQU        1                    ;TEIntHook value
  250. intWidthHook                    EQU        2                    ;TEIntHook value
  251. intHitTestHook                    EQU        3                    ;TEIntHook value
  252. intNWidthHook                    EQU        6                    ;TEIntHook value for new version of WidthHook
  253. intTextWidthHook                EQU        7                    ;TEIntHook value for new TextWidthHook
  254. teFAutoScroll                    EQU        0                    ;00000001b
  255. teFAutoScr                        EQU        0                    ;00000001b  obsolete. use teFAutoScroll
  256. teFTextBuffering                EQU        1                    ;00000010b
  257. teFOutlineHilite                EQU        2                    ;00000100b
  258. teFInlineInput                    EQU        3                    ;00001000b 
  259. teFUseTextServices                EQU        4                    ;00010000b 
  260.  
  261. ; action for the new "bit (un)set" interface, TEFeatureFlag 
  262. teBitClear                        EQU        0
  263. teBitSet                        EQU        1                    ;set the selector bit
  264. teBitTest                        EQU        -1                    ;no change; just return the current setting
  265. ;constants for identifying the routine that called FindWord 
  266. teWordSelect                    EQU        4                    ;clickExpand to select word
  267. teWordDrag                        EQU        8                    ;clickExpand to drag new word
  268. teFromFind                        EQU        12                    ;FindLine called it ($0C)
  269. teFromRecal                        EQU        16                    ;RecalLines called it ($10)      obsolete 
  270. ;constants for identifying TEDoText selectors 
  271. teFind                            EQU        0                    ;TEDoText called for searching
  272. teHighlight                        EQU        1                    ;TEDoText called for highlighting
  273. teDraw                            EQU        -1                    ;TEDoText called for drawing text
  274. teCaret                            EQU        -2                    ;TEDoText called for drawing the caret
  275.  
  276. ; typedef char                 Chars[32001]
  277. ; typedef CharsPtr             *CharsHandle
  278. StyleRun                 RECORD    0
  279. startChar                 ds.w   1        ; offset: $0 (0)        ;starting character position
  280. styleIndex                 ds.w   1        ; offset: $2 (2)        ;index in style table
  281. sizeof                     EQU *            ; size:   $4 (4)
  282.                         ENDR
  283.  
  284. ; typedef struct StyleRun     StyleRun
  285. STElement                 RECORD    0
  286. stCount                     ds.w   1        ; offset: $0 (0)        ;number of runs in this style
  287. stHeight                 ds.w   1        ; offset: $2 (2)        ;line height
  288. stAscent                 ds.w   1        ; offset: $4 (4)        ;font ascent
  289. stFont                     ds.w   1        ; offset: $6 (6)        ;font (family) number
  290. stFace                     ds.b   1        ; offset: $8 (8)        ;character Style
  291. filler                     ds.b   1        ; offset: $9 (9)        ;stFace is unpacked byte
  292. stSize                     ds.w   1        ; offset: $A (10)        ;size in points
  293. stColor                     ds     RGBColor ; offset: $C (12)        ;absolute (RGB) color
  294. sizeof                     EQU *            ; size:   $12 (18)
  295.                         ENDR
  296.  
  297. ; typedef struct STElement     STElement
  298. ; typedef STElement         TEStyleTable[1777]
  299. LHElement                 RECORD    0
  300. lhHeight                 ds.w   1        ; offset: $0 (0)        ;maximum height in line
  301. lhAscent                 ds.w   1        ; offset: $2 (2)        ;maximum ascent in line
  302. sizeof                     EQU *            ; size:   $4 (4)
  303.                         ENDR
  304.  
  305. ; typedef struct LHElement     LHElement
  306. ; typedef LHElement         LHTable[8001]
  307. ScrpSTElement             RECORD    0
  308. scrpStartChar             ds.l   1        ; offset: $0 (0)        ;starting character position
  309. scrpHeight                 ds.w   1        ; offset: $4 (4)        ;starting character position
  310. scrpAscent                 ds.w   1        ; offset: $6 (6)
  311. scrpFont                 ds.w   1        ; offset: $8 (8)
  312. scrpFace                 ds.b   1        ; offset: $A (10)        ;unpacked byte
  313. filler                     ds.b   1        ; offset: $B (11)        ;scrpFace is unpacked byte
  314. scrpSize                 ds.w   1        ; offset: $C (12)
  315. scrpColor                 ds     RGBColor ; offset: $E (14)
  316. sizeof                     EQU *            ; size:   $14 (20)
  317.                         ENDR
  318.  
  319. ; typedef struct ScrpSTElement  ScrpSTElement
  320. ; ARRAY [0..1600] OF ScrpSTElement 
  321. ; typedef ScrpSTElement     ScrpSTTable[1601]
  322. StScrpRec                 RECORD    0
  323. scrpNStyles                 ds.w   1        ; offset: $0 (0)        ;number of styles in scrap
  324. scrpStyleTab             ds.l   8005    ; offset: $2 (2)        ;table of styles for scrap
  325. sizeof                     EQU *            ; size:   $7D16 (32022)
  326.                         ENDR
  327.  
  328. ; typedef struct StScrpRec     StScrpRec
  329. ; typedef StScrpRec         *StScrpPtr, **StScrpHandle
  330. NullStRec                 RECORD    0
  331. teReserved                 ds.l   1        ; offset: $0 (0)        ;reserved for future expansion
  332. nullScrap                 ds.l   1        ; offset: $4 (4)        ;handle to scrap style table
  333. sizeof                     EQU *            ; size:   $8 (8)
  334.                         ENDR
  335.  
  336. ; typedef struct NullStRec     NullStRec
  337. ; typedef NullStRec         *NullStPtr, **NullStHandle
  338. TEStyleRec                 RECORD    0
  339. nRuns                     ds.w   1        ; offset: $0 (0)        ;number of style runs
  340. nStyles                     ds.w   1        ; offset: $2 (2)        ;size of style table
  341. styleTab                 ds.l   1        ; offset: $4 (4)        ;handle to style table
  342. lhTab                     ds.l   1        ; offset: $8 (8)        ;handle to line-height table
  343. teRefCon                 ds.l   1        ; offset: $C (12)        ;reserved for application use
  344. nullStyle                 ds.l   1        ; offset: $10 (16)        ;Handle to style set at null selection
  345. runs                     ds.b   8001 * StyleRun.sizeof ; offset: $14 (20) ;ARRAY [0..8000] OF StyleRun
  346. sizeof                     EQU *            ; size:   $7D18 (32024)
  347.                         ENDR
  348.  
  349. ; typedef struct TEStyleRec  TEStyleRec
  350. ; typedef TEStyleRec         *TEStylePtr, **TEStyleHandle
  351. TextStyle                 RECORD    0
  352. tsFont                     ds.w   1        ; offset: $0 (0)        ;font (family) number
  353. tsFace                     ds.b   1        ; offset: $2 (2)        ;character Style
  354. filler                     ds.b   1        ; offset: $3 (3)        ;tsFace is unpacked byte
  355. tsSize                     ds.w   1        ; offset: $4 (4)        ;size in point
  356. tsColor                     ds     RGBColor ; offset: $6 (6)        ;absolute (RGB) color
  357. sizeof                     EQU *            ; size:   $C (12)
  358.                         ENDR
  359.  
  360. ; typedef struct TextStyle     TextStyle
  361. ; typedef TextStyle         *TextStylePtr, **TextStyleHandle
  362. ; typedef short             TEIntHook
  363. ;
  364. ; pascal Handle TEScrapHandle(void)
  365. ;
  366.     IF ¬ GENERATINGCFM THEN
  367.         Macro
  368.         _TEScrapHandle         &dest=(sp)
  369.         move.l               $0AB4,&dest
  370.         EndM
  371.     ELSE
  372.         IMPORT_CFM_FUNCTION    TEScrapHandle
  373.     ENDIF
  374.  
  375. ;
  376. ; pascal void TEInit(void)
  377. ;
  378.     IF ¬ GENERATINGCFM THEN
  379.         _TEInit:    OPWORD    $A9CC
  380.     ELSE
  381.         IMPORT_CFM_FUNCTION    TEInit
  382.     ENDIF
  383.  
  384. ;
  385. ; pascal TEHandle TENew(const Rect *destRect, const Rect *viewRect)
  386. ;
  387.     IF ¬ GENERATINGCFM THEN
  388.         _TENew:    OPWORD    $A9D2
  389.     ELSE
  390.         IMPORT_CFM_FUNCTION    TENew
  391.     ENDIF
  392.  
  393. ;
  394. ; pascal void TEDispose(TEHandle hTE)
  395. ;
  396.     IF ¬ GENERATINGCFM THEN
  397.         _TEDispose:    OPWORD    $A9CD
  398.     ELSE
  399.         IMPORT_CFM_FUNCTION    TEDispose
  400.     ENDIF
  401.  
  402. ;
  403. ; pascal void TESetText(const void *text, long length, TEHandle hTE)
  404. ;
  405.     IF ¬ GENERATINGCFM THEN
  406.         _TESetText:    OPWORD    $A9CF
  407.     ELSE
  408.         IMPORT_CFM_FUNCTION    TESetText
  409.     ENDIF
  410.  
  411. ;
  412. ; pascal CharsHandle TEGetText(TEHandle hTE)
  413. ;
  414.     IF ¬ GENERATINGCFM THEN
  415.         _TEGetText:    OPWORD    $A9CB
  416.     ELSE
  417.         IMPORT_CFM_FUNCTION    TEGetText
  418.     ENDIF
  419.  
  420. ;
  421. ; pascal void TEIdle(TEHandle hTE)
  422. ;
  423.     IF ¬ GENERATINGCFM THEN
  424.         _TEIdle:    OPWORD    $A9DA
  425.     ELSE
  426.         IMPORT_CFM_FUNCTION    TEIdle
  427.     ENDIF
  428.  
  429. ;
  430. ; pascal void TESetSelect(long selStart, long selEnd, TEHandle hTE)
  431. ;
  432.     IF ¬ GENERATINGCFM THEN
  433.         _TESetSelect:    OPWORD    $A9D1
  434.     ELSE
  435.         IMPORT_CFM_FUNCTION    TESetSelect
  436.     ENDIF
  437.  
  438. ;
  439. ; pascal void TEActivate(TEHandle hTE)
  440. ;
  441.     IF ¬ GENERATINGCFM THEN
  442.         _TEActivate:    OPWORD    $A9D8
  443.     ELSE
  444.         IMPORT_CFM_FUNCTION    TEActivate
  445.     ENDIF
  446.  
  447. ;
  448. ; pascal void TEDeactivate(TEHandle hTE)
  449. ;
  450.     IF ¬ GENERATINGCFM THEN
  451.         _TEDeactivate:    OPWORD    $A9D9
  452.     ELSE
  453.         IMPORT_CFM_FUNCTION    TEDeactivate
  454.     ENDIF
  455.  
  456. ;
  457. ; pascal void TEKey(asciichar key, TEHandle hTE)
  458. ;
  459.     IF ¬ GENERATINGCFM THEN
  460.         _TEKey:    OPWORD    $A9DC
  461.     ELSE
  462.         IMPORT_CFM_FUNCTION    TEKey
  463.     ENDIF
  464.  
  465. ;
  466. ; pascal void TECut(TEHandle hTE)
  467. ;
  468.     IF ¬ GENERATINGCFM THEN
  469.         _TECut:    OPWORD    $A9D6
  470.     ELSE
  471.         IMPORT_CFM_FUNCTION    TECut
  472.     ENDIF
  473.  
  474. ;
  475. ; pascal void TECopy(TEHandle hTE)
  476. ;
  477.     IF ¬ GENERATINGCFM THEN
  478.         _TECopy:    OPWORD    $A9D5
  479.     ELSE
  480.         IMPORT_CFM_FUNCTION    TECopy
  481.     ENDIF
  482.  
  483. ;
  484. ; pascal void TEPaste(TEHandle hTE)
  485. ;
  486.     IF ¬ GENERATINGCFM THEN
  487.         _TEPaste:    OPWORD    $A9DB
  488.     ELSE
  489.         IMPORT_CFM_FUNCTION    TEPaste
  490.     ENDIF
  491.  
  492. ;
  493. ; pascal void TEDelete(TEHandle hTE)
  494. ;
  495.     IF ¬ GENERATINGCFM THEN
  496.         _TEDelete:    OPWORD    $A9D7
  497.     ELSE
  498.         IMPORT_CFM_FUNCTION    TEDelete
  499.     ENDIF
  500.  
  501. ;
  502. ; pascal void TEInsert(const void *text, long length, TEHandle hTE)
  503. ;
  504.     IF ¬ GENERATINGCFM THEN
  505.         _TEInsert:    OPWORD    $A9DE
  506.     ELSE
  507.         IMPORT_CFM_FUNCTION    TEInsert
  508.     ENDIF
  509.  
  510. ;
  511. ; pascal void TESetAlignment(short just, TEHandle hTE)
  512. ;
  513.     IF ¬ GENERATINGCFM THEN
  514.         _TESetAlignment:    OPWORD    $A9DF
  515.     ELSE
  516.         IMPORT_CFM_FUNCTION    TESetAlignment
  517.     ENDIF
  518.  
  519. ;
  520. ; pascal void TEUpdate(const Rect *rUpdate, TEHandle hTE)
  521. ;
  522.     IF ¬ GENERATINGCFM THEN
  523.         _TEUpdate:    OPWORD    $A9D3
  524.     ELSE
  525.         IMPORT_CFM_FUNCTION    TEUpdate
  526.     ENDIF
  527.  
  528. ;
  529. ; pascal void TETextBox(const void *text, long length, const Rect *box, short just)
  530. ;
  531.     IF ¬ GENERATINGCFM THEN
  532.         _TETextBox:    OPWORD    $A9CE
  533.     ELSE
  534.         IMPORT_CFM_FUNCTION    TETextBox
  535.     ENDIF
  536.  
  537. ;
  538. ; pascal void TEScroll(short dh, short dv, TEHandle hTE)
  539. ;
  540.     IF ¬ GENERATINGCFM THEN
  541.         _TEScroll:    OPWORD    $A9DD
  542.     ELSE
  543.         IMPORT_CFM_FUNCTION    TEScroll
  544.     ENDIF
  545.  
  546. ;
  547. ; pascal void TESelView(TEHandle hTE)
  548. ;
  549.     IF ¬ GENERATINGCFM THEN
  550.         _TESelView:    OPWORD    $A811
  551.     ELSE
  552.         IMPORT_CFM_FUNCTION    TESelView
  553.     ENDIF
  554.  
  555. ;
  556. ; pascal void TEPinScroll(short dh, short dv, TEHandle hTE)
  557. ;
  558.     IF ¬ GENERATINGCFM THEN
  559.         _TEPinScroll:    OPWORD    $A812
  560.     ELSE
  561.         IMPORT_CFM_FUNCTION    TEPinScroll
  562.     ENDIF
  563.  
  564. ;
  565. ; pascal void TEAutoView(Boolean fAuto, TEHandle hTE)
  566. ;
  567.     IF ¬ GENERATINGCFM THEN
  568.         _TEAutoView:    OPWORD    $A813
  569.     ELSE
  570.         IMPORT_CFM_FUNCTION    TEAutoView
  571.     ENDIF
  572.  
  573. ;
  574. ; pascal void TECalText(TEHandle hTE)
  575. ;
  576.     IF ¬ GENERATINGCFM THEN
  577.         _TECalText:    OPWORD    $A9D0
  578.     ELSE
  579.         IMPORT_CFM_FUNCTION    TECalText
  580.     ENDIF
  581.  
  582. ;
  583. ; pascal short TEGetOffset(Point pt, TEHandle hTE)
  584. ;
  585.     IF ¬ GENERATINGCFM THEN
  586.         _TEGetOffset:    OPWORD    $A83C
  587.     ELSE
  588.         IMPORT_CFM_FUNCTION    TEGetOffset
  589.     ENDIF
  590.  
  591. ;
  592. ; pascal Point TEGetPoint(short offset, TEHandle hTE)
  593. ;
  594.     IF ¬ GENERATINGCFM THEN
  595.         Macro
  596.         _TEGetPoint
  597.             move.w    #$0008,-(sp)
  598.             dc.w     $A83D
  599.         EndM
  600.     ELSE
  601.         IMPORT_CFM_FUNCTION    TEGetPoint
  602.     ENDIF
  603.  
  604. ;
  605. ; pascal void TEClick(Point pt, Boolean fExtend, TEHandle h)
  606. ;
  607.     IF ¬ GENERATINGCFM THEN
  608.         _TEClick:    OPWORD    $A9D4
  609.     ELSE
  610.         IMPORT_CFM_FUNCTION    TEClick
  611.     ENDIF
  612.  
  613. ;
  614. ; pascal TEHandle TEStyleNew(const Rect *destRect, const Rect *viewRect)
  615. ;
  616.     IF ¬ GENERATINGCFM THEN
  617.         _TEStyleNew:    OPWORD    $A83E
  618.     ELSE
  619.         IMPORT_CFM_FUNCTION    TEStyleNew
  620.     ENDIF
  621.  
  622. ;
  623. ; pascal void TESetStyleHandle(TEStyleHandle theHandle, TEHandle hTE)
  624. ;
  625.     IF ¬ GENERATINGCFM THEN
  626.         Macro
  627.         _TESetStyleHandle
  628.             move.w    #$0005,-(sp)
  629.             dc.w     $A83D
  630.         EndM
  631.     ELSE
  632.         IMPORT_CFM_FUNCTION    TESetStyleHandle
  633.     ENDIF
  634.  
  635. ;
  636. ; pascal TEStyleHandle TEGetStyleHandle(TEHandle hTE)
  637. ;
  638.     IF ¬ GENERATINGCFM THEN
  639.         Macro
  640.         _TEGetStyleHandle
  641.             move.w    #$0004,-(sp)
  642.             dc.w     $A83D
  643.         EndM
  644.     ELSE
  645.         IMPORT_CFM_FUNCTION    TEGetStyleHandle
  646.     ENDIF
  647.  
  648. ;
  649. ; pascal void TEGetStyle(short offset, TextStyle *theStyle, short *lineHeight, short *fontAscent, TEHandle hTE)
  650. ;
  651.     IF ¬ GENERATINGCFM THEN
  652.         Macro
  653.         _TEGetStyle
  654.             move.w    #$0003,-(sp)
  655.             dc.w     $A83D
  656.         EndM
  657.     ELSE
  658.         IMPORT_CFM_FUNCTION    TEGetStyle
  659.     ENDIF
  660.  
  661. ;
  662. ; pascal void TEStylePaste(TEHandle hTE)
  663. ;
  664.     IF ¬ GENERATINGCFM THEN
  665.         Macro
  666.         _TEStylePaste
  667.             move.w    #$0000,-(sp)
  668.             dc.w     $A83D
  669.         EndM
  670.     ELSE
  671.         IMPORT_CFM_FUNCTION    TEStylePaste
  672.     ENDIF
  673.  
  674. ;
  675. ; pascal void TESetStyle(short mode, const TextStyle *newStyle, Boolean fRedraw, TEHandle hTE)
  676. ;
  677.     IF ¬ GENERATINGCFM THEN
  678.         Macro
  679.         _TESetStyle
  680.             move.w    #$0001,-(sp)
  681.             dc.w     $A83D
  682.         EndM
  683.     ELSE
  684.         IMPORT_CFM_FUNCTION    TESetStyle
  685.     ENDIF
  686.  
  687. ;
  688. ; pascal void TEReplaceStyle(short mode, const TextStyle *oldStyle, const TextStyle *newStyle, Boolean fRedraw, TEHandle hTE)
  689. ;
  690.     IF ¬ GENERATINGCFM THEN
  691.         Macro
  692.         _TEReplaceStyle
  693.             move.w    #$0002,-(sp)
  694.             dc.w     $A83D
  695.         EndM
  696.     ELSE
  697.         IMPORT_CFM_FUNCTION    TEReplaceStyle
  698.     ENDIF
  699.  
  700. ;
  701. ; pascal StScrpHandle TEGetStyleScrapHandle(TEHandle hTE)
  702. ;
  703.     IF ¬ GENERATINGCFM THEN
  704.         Macro
  705.         _TEGetStyleScrapHandle
  706.             move.w    #$0006,-(sp)
  707.             dc.w     $A83D
  708.         EndM
  709.     ELSE
  710.         IMPORT_CFM_FUNCTION    TEGetStyleScrapHandle
  711.     ENDIF
  712.  
  713. ;
  714. ; pascal void TEStyleInsert(const void *text, long length, StScrpHandle hST, TEHandle hTE)
  715. ;
  716.     IF ¬ GENERATINGCFM THEN
  717.         Macro
  718.         _TEStyleInsert
  719.             move.w    #$0007,-(sp)
  720.             dc.w     $A83D
  721.         EndM
  722.     ELSE
  723.         IMPORT_CFM_FUNCTION    TEStyleInsert
  724.     ENDIF
  725.  
  726. ;
  727. ; pascal long TEGetHeight(long endLine, long startLine, TEHandle hTE)
  728. ;
  729.     IF ¬ GENERATINGCFM THEN
  730.         Macro
  731.         _TEGetHeight
  732.             move.w    #$0009,-(sp)
  733.             dc.w     $A83D
  734.         EndM
  735.     ELSE
  736.         IMPORT_CFM_FUNCTION    TEGetHeight
  737.     ENDIF
  738.  
  739. ;
  740. ; pascal Boolean TEContinuousStyle(short *mode, TextStyle *aStyle, TEHandle hTE)
  741. ;
  742.     IF ¬ GENERATINGCFM THEN
  743.         Macro
  744.         _TEContinuousStyle
  745.             move.w    #$000A,-(sp)
  746.             dc.w     $A83D
  747.         EndM
  748.     ELSE
  749.         IMPORT_CFM_FUNCTION    TEContinuousStyle
  750.     ENDIF
  751.  
  752. ;
  753. ; pascal void TEUseStyleScrap(long rangeStart, long rangeEnd, StScrpHandle newStyles, Boolean fRedraw, TEHandle hTE)
  754. ;
  755.     IF ¬ GENERATINGCFM THEN
  756.         Macro
  757.         _TEUseStyleScrap
  758.             move.w    #$000B,-(sp)
  759.             dc.w     $A83D
  760.         EndM
  761.     ELSE
  762.         IMPORT_CFM_FUNCTION    TEUseStyleScrap
  763.     ENDIF
  764.  
  765. ;
  766. ; pascal void TECustomHook(TEIntHook which, UniversalProcPtr *addr, TEHandle hTE)
  767. ;
  768.     IF ¬ GENERATINGCFM THEN
  769.         Macro
  770.         _TECustomHook
  771.             move.w    #$000C,-(sp)
  772.             dc.w     $A83D
  773.         EndM
  774.     ELSE
  775.         IMPORT_CFM_FUNCTION    TECustomHook
  776.     ENDIF
  777.  
  778. ;
  779. ; pascal long TENumStyles(long rangeStart, long rangeEnd, TEHandle hTE)
  780. ;
  781.     IF ¬ GENERATINGCFM THEN
  782.         Macro
  783.         _TENumStyles
  784.             move.w    #$000D,-(sp)
  785.             dc.w     $A83D
  786.         EndM
  787.     ELSE
  788.         IMPORT_CFM_FUNCTION    TENumStyles
  789.     ENDIF
  790.  
  791. ;
  792. ; pascal short TEFeatureFlag(short feature, short action, TEHandle hTE)
  793. ;
  794.     IF ¬ GENERATINGCFM THEN
  795.         Macro
  796.         _TEFeatureFlag
  797.             move.w    #$000E,-(sp)
  798.             dc.w     $A83D
  799.         EndM
  800.     ELSE
  801.         IMPORT_CFM_FUNCTION    TEFeatureFlag
  802.     ENDIF
  803.  
  804. ;
  805. ; pascal OSErr TEGetHiliteRgn(RgnHandle region, TEHandle hTE)
  806. ;
  807.     IF ¬ GENERATINGCFM THEN
  808.         Macro
  809.         _TEGetHiliteRgn
  810.             move.w    #$000F,-(sp)
  811.             dc.w     $A83D
  812.         EndM
  813.     ELSE
  814.         IMPORT_CFM_FUNCTION    TEGetHiliteRgn
  815.     ENDIF
  816.  
  817. ;
  818. ; pascal void TESetScrapLength(long length)
  819. ;
  820.     IF GENERATINGCFM THEN
  821.         IMPORT_CFM_FUNCTION    TESetScrapLength
  822.     ENDIF
  823.  
  824. ;
  825. ; pascal OSErr TEFromScrap(void)
  826. ;
  827.     IF GENERATINGCFM THEN
  828.         IMPORT_CFM_FUNCTION    TEFromScrap
  829.     ENDIF
  830.  
  831. ;
  832. ; pascal OSErr TEToScrap(void)
  833. ;
  834.     IF GENERATINGCFM THEN
  835.         IMPORT_CFM_FUNCTION    TEToScrap
  836.     ENDIF
  837.  
  838. ;
  839. ; pascal void TESetClickLoop(TEClickLoopUPP clikProc, TEHandle hTE)
  840. ;
  841.     IF GENERATINGCFM THEN
  842.         IMPORT_CFM_FUNCTION    TESetClickLoop
  843.     ENDIF
  844.  
  845. ;
  846. ; pascal void TESetWordBreak(WordBreakUPP wBrkProc, TEHandle hTE)
  847. ;
  848.     IF GENERATINGCFM THEN
  849.         IMPORT_CFM_FUNCTION    TESetWordBreak
  850.     ENDIF
  851.  
  852. ; 
  853. ;    There is no function to get/set the low-mem for FindWordHook at 0x07F8.
  854. ;    This is because it is not a low-mem ProcPtr. That address is the entry
  855. ;    in the OS TrapTable for trap 0xA0FE.  You can use Get/SetTrapAddress to 
  856. ;    acccess it.    
  857. ;
  858.     IF OLDROUTINENAMES  THEN
  859.     ENDIF
  860.     ENDIF ; __TEXTEDIT__
  861.